*ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* bxBase* D T d TB40HYP.SBK bxBase* Early Backdrop Assign Addign disabled Early Disabled Later Later Disabled dotdotdot dotdotdot wwwwp wwwww wwwwwp wwpwwp wwpwwp wwpwwp xwwwxp wxwxwp wwxwwp wwpwwp xxxxx xxxxxxxxxxxxx xxxxxxxxxx xxxxxxxxxxxxxxxxx xxxxxx xxxxxxx """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" """""""""" ETEICO """"" """"" """"" """"" """"" """"" """"" """"" Information question warning apple arrowr arrowrd DDDDDD@ DDDDDDDD@ DDDDD DDDD@ DDDDD DDDD@ DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDO DDDDD@ DDDDO DDDDD DDDDDDDDDDDDDD DDDDDDDDDDDDDD DDDDD DDDDD@ DDDDO DDDD@ """"/ """" """"/ """" """"""/ """""" """""""""""""" """""/ """"" """""/ """"" """""/ """"" """""" """"" """""" """"" """"""/ """" """"""/ """" """"""" """" """"""" """" """""" wwwwwwwp wwwwwwwp wwwpff wwwpff`p wwwpff`p wwpff wwpff` wwpff` PXFrontEnd frontEnd Source Book ScriptWalker propValue GetScriptWalkIni enterPage Cancel 3default center propValue different destination Out File ASYM_Ellipsize trueValue propValue enterField trueValue propValue trueValue leaveField Destination Book ScriptWalker propValue GetScriptWalkIni enterPage Cancel 3default center propValue In File ASYM_Ellipsize trueValue propValue enterField trueValue propValue trueValue leaveField author refBtn keyDown Cancel cancelBtn isWin95 defBtn skrefFocus enterPage refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus author refBtn keyDown Cancel cancelBtn isWin95 defBtn skrefFocus enterPage refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus author refBtn keyDown Cancel cancelBtn isWin95 defBtn skrefFocus enterPage refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus Source Dir ASYM_CurrentDirectory ScriptWalker propValue GetScriptWalkIni enterPage DestinationBookPath center propValue destPathFld trueValue ASYM_Ellipsize trueValue propValue enterField trueValue propValue trueValue leaveField (*.*),*.* oldDir defaultPath Book to walk prompt System books Special fieldRef book extension tb40DLG.DLL Source Dir In File HshortFileName newFileName propValue ASYM_PathOfFile filter defaultFile ASYM_CurrentDirectory ASYM_GetString (*.tbk),*.tbk cASYM_SetCurrentDirectory (*.sbk),*.sbk ScriptWalker OpenFileDlg All files OpenFileDlg propValue Books GetScriptWalkIni buttonClick (*.*),*.* oldDir defaultPath (*.tbk),*.tbk prompt SaveAsDlg System books Special fieldRef book extension tb40DLG.DLL ASYM_PathOfFile In File HshortFileName newFileName propValue Save Dir filter defaultFile ASYM_CurrentDirectory ASYM_GetString cASYM_SetCurrentDirectory (*.sbk),*.sbk ScriptWalker Out File All files propValue SaveAsDlg Books fixIt GetScriptWalkIni different destination Save Book As 7wASYM_Container buttonClick reset enterPage reset leavePage defBounds defbounds reset .', " .', " theBar reset defBounds defbounds Destination Book Extension ScriptWalker propValue GetScriptWalkIni enterPage Destination Book Extension propValue ScriptWalker SetScriptWalkIni trueValue MoldText enterField different extension trueValue propValue trueValue propValue Different extension propValue fixUp propValue trueValue leaveField statusbar enterpage leavePage cancel FALSE 3default propValue in File out File Different Destination Walk Scripts Of A Book Generic ASYM_GetString WalkScripts replaceStrings FileExists The source book cannot be found. fixVersion ^DoWalkScripts isValidBook In File outFn propValue defReplaceStrings ASYM_GetString devReplaceStrings This is not a valid ToolBook file. krrecordDefaults Out File Change TB Version strings Different Destination Change Generic Version strings closeThisWindow tb30 to tb40 replaceStrings Source Book ASYM_PathOfFile Source Dir Destination Book Destination Dir DefReplaceStrings sysfiles tb30 to tb40 ScriptWalker SetScriptWalkIni r .'+ +F .'+ +F 1, #> .'+ +F .'+ +F s_outPath The source directory does not exist. s_WalkedN s_overWriteFlag replaceStrings reset FALSE ASYM_IsDirectory cancel stop recursive outExt propValue IsValidBook defReplaceStrings Sorting... krrecordDefaults statusBar DbuildFileList SourceBookPath Different Destination Change Generic Version strings inPath yesStr s_ToWalkN DestinationBookPath s_FileList fixVersion The destination directory does not exist. outPath Source Book Extension Include subdirectories OK to overwrite the existing files? Different Extension inExt Scanning files for valid books... %1 outFn filter wsortTextLines ASYM_GetString s_BooksToWalk No files matching the pattern "%1". Destination Book Extension s_inPath Change TB Version strings progress closeThisWindow Source Ext replaceStrings Destination Ext Source Dir Include Subdirectories Destination Dir tb30 to tb40 sysfiles tb30 to tb40 ScriptWalker SetScriptWalkIni r w, #> w, #> .', " ,&H.& ,&H.& ,&H.& w, #? ,&H.& ,&H.& ,&H.& cancel Cancel sysSuspendMessages=true;go page 1 of book RemoveFile The book file may be corrupted, or there is a conflict with a file handle. walkObjects save as save as exe false MTB40.EXE , TRUE $$$$$$$.tmp ToolBook Resaving bookRef HshortFileName and try again. tempFn Close and restart Windows, Apparent book version is: send exit to system pathOfFile UpdatingExeX cancel false bookRef backgrounds backIndex curPage skipstr bkName backID tempFn ASYM_GetString skipstr minimized ,TRUE Updating .EXE header for %1 Skip Book And Continue statusBar OpenErrSuggestion walkAllObjects shortFileName .'+ +F .'+ +F cancel showStatus s_BooksToWalk Background s_replaceCount _twiddleCursor curObjType checkScript walkObjects of book obname obRef s_scr FindInScript s_scr ReplaceInScript .'+ +F s_replaceCount s_fixVersionNumbersInScripts quitStr ^{keyY}{keyEnter} s_scr Cancel cancel sharedScript noStr Cssendkeys Script still contains error There is still an error in the script of %1. Edit again? pwd.txt s_StringsToReplace ASYM_GetString yesStr Try again checkScript .', " s_cursn twiddleCursor ASYM_GetString ASYM_GetString Cffffff false isWin95 Depending on the complexity, size and number of books, HelpWalkBatch false try to isolate the offending book and process it separately. could not fix. For each script containing an error, HelpWalkOne Sorry, help not available on this topic. This utility will walk and attempt to recompile the scripts If such an error occurs, try smaller batches or the scripts for optimum performance, and find every of a single book and convert it to version 4.0. of a batch of books and convert them to version 4.0. HelpGen the Check Syntax command to find and fix the error. ASYM_GetString Version 4.0 of the OpenScript compilers catches more created with a previous ToolBook version, recompile error is encountered in a script, the process will stop script that contains a syntax error which the converter it will open the script editor and allow you to use errors at compile time than older versions. If such an and the script editor will pop up so that you can fix the error. Nohelp some fatal errors may occur during batch processing. This application will open or convert one or more books asym_winHelp w, #> GetCurrentDrive GetCurrentDirectory 7>7g GetCurrentDrive tb40DOS.dll vGetCurrentDirectory ASYM_CurrentDirectory GetCurrentDrive SetCurrentDirectory result tb40DOS.dll SetCurrentDrive , T,.7>-# GetCurrentDrive , Ulp SetCurrentDirectory SetCurrentDrive ASYM_SetCurrentDirectory newPath oldPath ChooseDirectoryDlg ASYM_CurrentDirectory cASYM_SetCurrentDirectory tb40dlg.dll .ChooseDirectoryDlg ASYM_AskForPath 1, #> 1, #> dotss ASYM_Ellipsize right center ellipsizeFileName ASYM_Ellipsize GetFileAttributes tb40dos.dll GetFileAttributes ASYM_IsDirectory 1, "j ASYM_IsDirectory CreateDirectory tb40dos.dll CreateDirectory ASYM_CreateDirectory pathOfFile notifyBefore GetScriptWalkIni("ScriptWalker","Source Book") opropValue = otrueValue = cnt = = ASYM_Ellipsize( x <> B"different destination") "Out File" <> enabled B"OK" default B"OK" B"Cancel" <> "\" "..." notifyBefore GetScriptWalkIni("ScriptWalker","Destination Book") opropValue = otrueValue = cnt = = ASYM_Ellipsize( x <> "In File" <> enabled B"OK" default B"OK" B"Cancel" <> "\" "..." notifybefore notifyBefore x = 13 orefBtn buttonClick ocancelBtn = B"Cancel" odefBtn = B"OK" orefFocus isWin95() u= "pushbutton" xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y,\ b + x, b + y notifybefore notifyBefore x = 13 orefBtn buttonClick ocancelBtn = B"Cancel" odefBtn = B"OK" orefFocus isWin95() u= "pushbutton" xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y,\ b + x, b + y notifybefore notifyBefore x = 13 orefBtn buttonClick ocancelBtn = B"Cancel" odefBtn = B"OK" orefFocus isWin95() u= "pushbutton" xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y,\ b + x, b + y notifyBefore GetScriptWalkIni("ScriptWalker","Source Dir") ASYM_CurrentDirectory() opropValue = otrueValue = cnt = = ASYM_Ellipsize( destPathFld = "DestinationBookPath" "..." buttonClick oldDir = ASYM_CurrentDirectory() fieldRef = "In File" propValue defaultPath = GetScriptWalkIni("ScriptWalker","Source >ASYM_PathOfFile( defaultFile = shortFileName( ) > 3 linkDLL "tb40DLG. STRING OpenFileDlg( ,INT) prompt = ASYM_GetString("Book walk","") filter = 'All files") && "(*.*),*.*" GSystem books") && "(*.sbk),*. tbk),*. 8extension") "*." & Special","") && "(*." & & ")"\ newFileName = ASYM_SetCurrentDirectory( buttonClick oldDir = ASYM_CurrentDirectory() fieldRef = "Out File" propValue defaultPath = GetScriptWalkIni("ScriptWalker","Save 0 = ".txt" ) > 3 linkDLL "tb40DLG. STRING SaveAsDlg( ,INT) filter = ASYM_GetString("All files") && "(*.*),*.*" +System books") && "(*.sbk),*. VBooks") && "(*.tbk),*. 8extension") "*." & Special","") && "(*." & & ")"\ prompt = As","") newFileName = fixIt B"different destination" ASYM_SetCurrentDirectory( notifyBefore reset n = n = 0 sysPageUnitsPerPixel nx = ny = Hny -15 defbounds = x1,y1,x2,y2 = x1,y1,x1,y2 odefBounds = theBar = x1 = x2 = x1 + * (x2 - x1) bnds = notifyBefore ext = GetScriptWalkIni("ScriptWalker","Destination Book Extension") J"tbk" opropValue = SetScriptWalkIni(" ooldText = otrueValue B"different extension" p = ~(".", p > 0 fixUp B"Different statusbar readerStatusBar B"Stop" outF = propValue File" <> dif = B"Different Destination" inF = enabled B"OK" default B"OK" FALSE B"OK" B"OK" WalkScripts v = "Generic" defaultPage v = ASYM_GetString(" K Of A Book") %modal 4s_candidateList, s_bookToWalkList, s_walkedBooks oOK = closeThisWindow inFn = outFn = "Out FileExists( ]) <> 1 The source 8cannot be found.") xisValidBook( xa valid ToolBook file.") fixVersion = B"Change TB strings" defReplaceStrings = replaceStrings = recordDefaults 6, devReplaceStrings DoWalkScripts( SetScriptWalkIni("ScriptWalker","Source %Dir",ASYM_PathOfFile( tb30 tb40", sysfiles DefReplaceStrings) recordReplaceStringsInfo() statusbar readerStatusBar 4s_inPath, s_outPath,\ s_BooksToWalk, s_WalkedN, s_ToWalkN, s_overWriteFlag s_booksToWalk <> outFn fixVersion = propValue B"Change TB strings" defReplaceStrings = .Generic replaceStrings = "progress indicator" "current file" = \ expandString(ASYM_GetString("%1 %2"),\ ) & CRLF & B"stop" FlushMessageQueue() = pathOfFile( d = d <> GetFreeDiskSpace(d) < GetFileSize( Not enough disk finish.") xASYM_CreateDirectory( SkipStr = Continue") "Unable create destination directory %1."), f"&" & &Cancel") s_overwriteFlag \ FileExists( ) = 1 yesStr = Yes") yesAllStr = yesAllStrDB = noStr = %1 exists. Overwrite?"), "&" & YesStr "&" & = FALSE,TRUE DoWalkScripts( statusBar batchWalkScripts 4s_FileList v = defaultPage Batch %modal oOK = "SourceBookPath" B"Different Destination" "DestinationBookPath" <> "\" <> "\" inExt = Extension" outExt = --prompt, the existing files?")\ f"&" & No") "&" & xASYM_IsDirectory( ry does .source filter = "*." & recursive = B"Include subdirectories" buildFileList y, "*." & Sorting...") = sortTextLines( "Scanning valid m ... ObjectFromPoint( xIsValidBook( No matching ""%1""."), recordDefaults d = fCnt = s_inpath = Fn = = Fn p = ~(".", p > 0 "." & reset closeThisWindow inFnPath, outFnPath, , includeDirs SetScriptWalkIni("ScriptWalker"," =",OutFnPath) Subdirectories",\ Ext", OutExt) tb30 tb40", sysfiles DefReplaceStrings) recordReplaceStringsInfo() root, , recurse GetDirectoryOnlyList( & "*.*", "") textlineCount( d = d = GetFileAttributes( & d) d <> "\" GetFileList( n = stats = : %1.") d = d = Copyright 1994, 1995 Asymetrix Corporation gives you permission e, revise, reuse the individual scripts your own applications. You may J entire substantial part redistribution b product without inclusion proper credits %specified below. retains copyright on original elements . Include the notice "Portions are contain copied enterApplication sysRuntime = TRUE "This will runtime version ToolBook." activeWindowHandle = "ctb40r.sbk" X"tb40dos.dll" STRING GetFileList( Attributes( LONG GetFreeDiskSpace( ileSize( INT RemoveFile( CopyFile( &FileExists( DirectoryOnlyList( linkDLL "tb40win. IniVar( SetIniVar( sendkeys( X"tb40dlg. itemOffset( SortTextLines( mtb40cbt. ellipsizeFileName( , WORD) inifile SetScriptWalkIni sec, , val , IniFile()) GetScriptWalkIni GetIniVar( recordReplaceStringsInfo showStatus obj statusBar = DoWalkScripts inFn, outFn, fixVersion,\ replaceStrings, defReplaceStrings 4s_StringsToReplace[][] 4s_scr, s_fixVersionNumbersInScripts, s_replaceCount 4s_BooksToWalk "Sorry, must close other"\ && "instances 4walking reset [1][1] = "tb30dos" 1][2] = " 2][1] = "tb30win" 2][2] = " 3][1] = "tb30dlg" 3][2] = " 4][1] = "mtb30" 4][2] = " 5][1] = "ctb30" 5][2] = " 6][1] = "mtb30anm" 6][2] = "tb40anm" 6][1] = "mtb30mmm" 6][2] = "tb40mmm" 8" && && " & CRLF & 8cannot work on itself." "down" objectFromPoint( "Stop" expandString(ASYM_GetString("DestBookCopyError",\ creating destination 8." & error code: %1"), bkname = s_replacecount = 0 walkAllObjects (bkName) "Done." isValidBook fn (fn) <> ZbackID,backgrounds[][] \backIndex ZcurPage bookRef = skipstr = Skip And Continue") Apparent OpenErrSuggestion",\ "The be corrupted, there a conflict "Close restart Windows,"\ f"&" & "&" & Cancel") be walked walkObjects " through -- -- we have previously -- dimensions( j][1] -- -- so we don't visit ) + 1 ][1] ,backindex ".EXE" UpdatingExeX",\ %1"), shortFileName( cmd = " " && & sysToolBookDirectory & "MTB40. && "minimized" FlushMessageQueue() xsysSuspendMessages= 8" && tempFn = pathOfFile( .tmp" Resaving") && %" && & ", %exe" && ccnt = U(fn) Vi+1 "walks" objectToWalk. -- On entry handler, either a only used -- a Hreference, Zstack tlist,objList recFieldCount ZcurObj s_obCount twiddleCursor() xisType( flushMessageQueue() ) > 0 curObjType windows resourceList("sharedScript", getObjectList( ) > 0 checkScript obRef ob 8",ob)-1 U(ob) obname " (" & & ")" FindInScript what ReplaceInScript withWhat, p, howlong (p + - 1) curObject n = n > 0 p = i][1], cp > 0 i][2]) - 1\ i][2] i][1], p = cp > 0 p = fn = y & "pwd.txt" -- There that x"Try }{keyEnter}",0) yesStr = Yes") noStr = quitStr = still %1. Edit ?"),\ f"&" & "&" & "&" & cNoStr 4s_cursn = 29 a, b isWin95 sysOperatingSystem istype("real", > 3.8 asym_winHelp n Nohelp"," xavailable on n = 100 HelpGen",\ convert one more books"\ && "created , recompile"\ optimum performance, find every"\ ca syntax which converter"\ && "could xfix. For each containing editor allow use"\ Check Syntax saved %.EXE 3.0x Multimedia 3.0x"\ && "should be opened conversion && "a resaved manually.") n = 101 HelpWalkOne",\ utility attempt a single 4.0." & 4.0 OpenScript compilers catches && "errors Ithan older versions. If such encountered process stop"\ up so can fix n =102 HelpWalkBatch",\ a batch them 4.0." & 4.0 . If up so & "Depending on complexity, && "some fatal occur during processing."\ && "If occurs, smaller batches isolate offending separately.") ASYM_CurrentDirectory --** HCO 940722 X"tb40DOS. CurrentDrive() drv = GetCurrentDrive() dir = "\" & GetCurrentDirectory( (<> "\" \& ":" & ASYM_SetCurrentDirectory pathStr result = -1 B <> ":" SetCurrentDrive( d = p = ~(":", p > 1 nd = d (nd) ASYM_AskForPath startPath, dbCaption ChooseDirectoryDlg( oldPath = newPath = .<> "\" trim s U(s) > 1 s <= U(s) > 1 s <= ASYM_Ellipsize s, len, side = 0; s = cCnt = dotss = "..." dotCnt = 3 p1 = ~("\", s) p1 > 0 < 18 s = + 1) p = ~("\", s) p > 0 dotsL = (len - U(s))+1 E) -- s = U(s) U(s))+1 s = + 4) p = 3) / 2 + 0.1) s1 = U(s1) + 1 + p > len s = s1 & s = ASYM_IsDirectory dirspec GetFileAttributes( ("D" ASYM_CreateDirectory dirSpec p = ~("\", cp > 1 dir1 = FALSE p1 = p p = ~("\", Vp+1 p > 1 p = p1 + p U(Fn) chars p to p + charco cordLocked Relation :HDMEDIAPATH taDir urier New Sans Serif Button id 43 of Page id 59 Claude Ostyn Arial user|2 _ASYM_StringArray Asymetrix Corporation 9/7/94 3:24:58 PM 9/6/94 2:19:00 PM info_LastSavedBy info_LastSaved user2 user0 FALSE user2 user|0,userID MS Sans Serif Sans Serif 12/19/94 2:32:14 PM Button id 45 of Page id 59 Button id 43 of Page id 59 Button id 48 of Page id 66 Button id 48 of Page id 66 Button id 48 of Page id 66 Button id 48 of Page id 66 Button id 44 of Page id 59 Button id 50 of Page id 66 Button id 44 of Page id 59 9/27/95 5:22:23 PM Claude Ostyn Arial 11/17/95 7:16:48 PM SYM_StringArray Claude Ostyn 12/13/95 6:10:28 PM /95 5:39:09 PM 12/13/95 6:23:57 PM 12/13/95 6:10:23 PM Arial Page id 66 MS Sans Serif 6:20:27 PM id 66 Claude Ostyn 11/17/95 1:01:16 PM stanceRunning 1/5/95 1:10:48 PM tb30dos.dll GetFileList GetFreeDiskSpace GetFileSize RemoveFile ctb30r.sbk mtb30cbt.dll DecryptFile enterApplication author reader enterPage enterApplication "ctb30r.sbk" X"mtb30cbt.dll" INT DecryptFile(STRING, X"tb30dos. GetFileList( LONG GetFreeDiskSpace( ileSize( oRemoveFile( `= thickFrame = thinFrame %1 of %2 %1 of %2 &Cancel &Cancel All files All files Apparent book version is: Apparent book version is: Batch Walk Scripts Batch Walk Scripts Book to walk Book to walk Books Books Cancel Cancel DestBookCopyError Error creating destination book. CopyFile error code: %1 Destination Directory Destination Directory File %1 exists. Overwrite? File %1 exists. Overwrite? No files matching the pattern No files matching the pattern " Not enough disk space to finish. Not enough disk space to finish. OK to overwrite the existing files? OK to overwrite the existing files? OpenErrSuggestion The book file may be corrupted, or there is a problem with a file handle. Close and restart Script Walker, and try again. Resaving Resaving Save Book As Save Book As Scanning files for valid books... %1 Scanning files for valid books... %1 Scanning for files: %1. Scanning for files: %1. Script still contains error There is still an error in the script of %1. Edit again? Review Course Activity %asym_cms_datadir()%cbkfive.tbk 6 urseID dulePassword Page "Tool Bar" login Request Paused Course Page "Paused Course" page "Edit Course" tion" Page "Review Course Activity" Page "Cover" ge "Login" Level 2 Page id 13 tch Decrypt Page id 19 Level 3 crypt A Log urseInfo Generic Edit Student Information Page "Edit Student Information" signments Page "accountInformation" Paused Courses [~password closeWindow closeWindow t Password newPassword allowNullPassword Add Book to Course j ror 142,244 defPos tableName 6 urseOwner page "Edit Book" LastName10, FirstName10 P 11 DnGguRf accessRights Administrator Access 1 Test course A 11 courseName Batch Walk Scripts userName ge "Courses" tch Decrypt page "Purge Data" newUser DnGguRf Purge Data bookName default enterWindow leveWindow leveWindow enterWindow o= default leveWindow 283,309 page "login" Edit Course Definition 94.12.05 Page id 66 of Book "G:\MTB40\SCRWLKB5.TBK" CBT Edition 4.0 Script Walker 267,105 defPos openWindow defPos moved openWindow odefPos = moved 54,67 defPos openWindow .', " defPos moved openWindow odefPos = moved ocurrentPage Cover defPos enterpage %asym_WinHelp keyDown ls = lockScreen = defPos asym_WinHelp() defaultButton Button id 22 of Page id 30 defBtn needFix Button id 10 of Page id 30 refBtn Button id 10 of Page id 30 cancelBtn Button id 28 of Page id 30 refFocus Walk Scripts One defPos buttonClick buttonClick WalkScripts() One" defPos &Walk Scripts of Book... Batch Walk defPos Batch Walk Scripts buttonClick buttonClick batchWalkScripts() "Batch defPos &Batch Walk Scripts... %ASYM_WinHelp buttonClick buttonClick ASYM_WinHelp(100) &Help Cancel buttonClick buttonClick &Quit fixup reader fixup fixup notifyBefore fixup richtext o = This utility walks and recompiles all the scripts in applications to be upgraded from MTB 3.0 to MTB 4.0. This utility walks and recompiles all the scripts in applications to be upgraded from MTB 3.0 to MTB 4.0. Version 4.0c author keyDown enterPage reader Button id 10 of Page id 30 94081715073113612108902 ASYM_TpID Walk Scripts One ASYM_BeenHere Caption propValue Walk and recompile the scripts of a book 3DGroupBox tbk_wid_type propValue Shadow Highlight Caption propValue &Source Book File Name: widget_defaultRect propValue to "tb40" wherever found in scripts, as in "tb30dos.dll" (case insensitive) system books or files, such as "tb30dos.dll", to the equivalent MTB4.0 references 3DGroupBox tbk_wid_type Shadow Highlight Caption Options buttonClick author buttonClick notifyBefore escape propValue default STOP! In File dbTable G:\MTB40\SCRWLK4.TBK trueValue G:\MTB40\SCRWLK4.TBKTXT.TBKR.TBK findFile exclude propValue Different Destination propValue In File Out File propValue enterPage propValue In File Out File propValue fixit propValue buttonClick trueValue Out File propValue propValue propValue notifyAfter opropValue = "In File" <> \ "Out fixit buttonClick fld = trueValue propValue Different &Destination Book File Name: Out File dbTable G:\MTB40\SCRWLK2.TBK trueValue G:\MTB40\SCRWLK2.TBK+ findOutFile exclude propValue Change TB Version strings tb30 to tb40 Scriptwalker SetIniVar GetIniVar tb40win.dll propValue GetScriptWalkIni enterPage s_fixVersionNumbersInScripts false truefalse propValue propValue propValue buttonClick notifyBefore X"tb40win.dll" INT SetIniVar(STRING, GetIniVar( opropValue = GetScriptWalkIni("Scriptwalker","tb30 4s_fixVersionNumbersInScripts "truefalse" buttonClick &Change every occurence of "tb30" Change Generic Version strings SetIniVar GetIniVar tb40win.dll Scrwalk sysfiles tb30 to tb40 propValue GetScriptWalkIni enterPage s_fixVersionNumbersInScripts false truefalse propValue propValue propValue buttonClick notifyBefore X"tb40win.dll" INT SetIniVar(STRING, GetIniVar( opropValue = GetScriptWalkIni("Scrwalk","sysfiles tb30 4s_fixVersionNumbersInScripts "truefalse" buttonClick &Change script references to MTB3.0 buttonClick buttonClick default propValue &Walk Scripts... Cancel closeThisWindow buttonClick buttonClick closeThisWindow escape propValue FALSE default &Close %ASYM_WinHelp buttonClick buttonClick ASYM_WinHelp(101) propValue &Help enterPage author enterPage 94090815470428412113648 ASYM_TpID NUI Dialog Boarder topBorder bottomBorder bkgndSize ssm = sysSuspendMessages "0,0" bkgndSize = topBorder = bottomBorder = sysPageUnitsPerPixel,( !el), ,el,(4 * ;el), Oel, (4 * sel,( el),( el),( el),( el), (4 * = ssm 3DDialogBorder tbk_wid_name 3DDialogBorder tbk_wid_type Dialog frame CTB_WID_Info CTB_WID_Author 940817 CTB_WID_CreateDate defaultButton Button id 44 of Page id 59 defBtn needFix Button id 43 of Page id 59 refBtn Button id 43 of Page id 59 cancelBtn Button id 48 of Page id 59 refFocus author keyDown enterPage Button id 43 of Page id 59 Batch Walk Scripts ASYM_BeenHere Include Subdirectories Include Subdirectories ScriptWalker GetScriptWalkIni enterPage notifyBefore Z= (TRUE = \ GetScriptWalkIni("ScriptWalker","Include Subdirectories")) &Include Subdirectories &Source Books: Caption Walk scripts of all books in a directory. 3DGroupBox tbk_wid_type Shadow Highlight Caption Directories 3DGroupBox tbk_wid_type Shadow Highlight Caption Files widget_defaultRect to "tb40" wherever found in scripts, as in "tb30dos.dll" (case insensitive) system books or files, such as "tb30dos.dll", to the equivalent MTB4.0 references 3DGroupBox tbk_wid_type Shadow Highlight Caption Options buttonClick author buttonClick notifyBefore escape propValue default STOP! Caption Walk scripts of all books in a directory. Caption Destination Book Names: SourceBookPath dbTable G:\MTB40\LIBRARY\ trueValue G:\MTB40\LIBRARY\ES\\BAR\\TE\ATE\C\SIC\ findFile asym_GetString oldDir Source Directory fieldRef propValue ASYM_CurrentDirectory newPathFile cASYM_SetCurrentDirectory propValue SourceBookPath asym_AskForPath buttonClick buttonClick oldDir = ASYM_CurrentDirectory() fieldRef = "SourceBookPath" propValue newPathFile = asym_AskForPath( asym_GetString(" t"),\ ASYM_SetCurrentDirectory( exclude Different Destination DestinationBookPath propValue propValue SourceBookPath enterPage DestinationBookPath propValue propValue SourceBookPath fixup propValue buttonClick DestinationBookPath trueValue propValue propValue propValue notifyAfter opropValue = "SourceBookPath" \ "DestinationBookPath" fixup buttonClick fld = trueValue propValue Different &Destination Directory: DestinationBookPath Destination dir ASYM_CurrentDirectory ScriptWalker propValue GetScriptWalkIni enterPage center ASYM_Ellipsize trueValue propValue enterField trueValue propValue trueValue leaveField notifyBefore GetScriptWalkIni("ScriptWalker","Destination dir") ASYM_CurrentDirectory() opropValue = otrueValue = cnt = = ASYM_Ellipsize( "..." dbTable G:\MTB40\LIBRARY\ trueValue outFile oldPath oldDir DestinationBookPath fixup fieldRef asym_GetString Destination Directory propValue ASYM_CurrentDirectory newPathFile cASYM_SetCurrentDirectory propValue asym_AskForPath different destination buttonClick buttonClick oldDir = ASYM_CurrentDirectory() fieldRef = "DestinationBookPath" oldPath = propValue newPathFile = asym_AskForPath( asym_GetString(" fixup B"different destination" ASYM_SetCurrentDirectory( d!t!T8 exclude Source Book Name E&xtension: R"d"[ 3dField tbk_wid_type 3D field CTB_WID_Info CTB_WID_Author 970817 CTB_WID_CreateDate !J#>( Source Book Extension Source Book Extension ScriptWalker GetScriptWalkIni enterPage propValue Source Book Extension SetScriptWalkIni ScriptWalker enterField propValue propValue Sorry, wildcards are not allowed. ASYM_GetString leaveField notifyBefore ext = GetScriptWalkIni("ScriptWalker","Source Book Extension") E"tbk" SetScriptWalkIni(" opropValue) p = ~(".", p > 0 c"*" ASYM_GetString("Sorry, wildcards are xallowed.") string propType Different Extension Destination Book Extension propValue Source Book Extension propValue enterPage Destination Book Extension propValue Source Book Extension propValue fixup Destination Book Extension propValue buttonClick trueValue Destination Book Extension propValue propValue propValue notifyAfter opropValue = "Source Book Extension" \ "Destination fixup buttonClick fld = trueValue propValue Use Different &Extension for ^/p/[ 3dField tbk_wid_type 3D field CTB_WID_Info CTB_WID_Author 970817 CTB_WID_CreateDate .V0v0 Destination Book Extension string propType trueValue oldText Change TB Version strings tb30 to tb40 Scriptwalker SetIniVar GetIniVar tb40win.dll propValue GetScriptWalkIni enterPage s_fixVersionNumbersInScripts false truefalse propValue propValue propValue buttonClick notifyBefore X"tb40win.dll" INT SetIniVar(STRING, GetIniVar( opropValue = GetScriptWalkIni("Scriptwalker","tb30 4s_fixVersionNumbersInScripts "truefalse" buttonClick &Change every occurence of "tb30" Change Generic Version strings SetIniVar GetIniVar tb40win.dll Scrwalk sysfiles tb30 to tb40 propValue GetScriptWalkIni enterPage s_fixVersionNumbersInScripts false truefalse propValue propValue propValue buttonClick notifyBefore X"tb40win.dll" INT SetIniVar(STRING, GetIniVar( opropValue = GetScriptWalkIni("Scrwalk","sysfiles tb30 4s_fixVersionNumbersInScripts "truefalse" buttonClick &Change script references to MTB3.0 buttonClick buttonClick default Cancel closeThisWindow buttonClick buttonClick closeThisWindow escape &Cancel %ASYM_WinHelp buttonClick buttonClick ASYM_WinHelp(102) &Help Progress author enterPage leavePage notifyBefore Current file enterPage reset notifyBefore notifybefore reset >(A@A Progress indicator 210,4305,5850,4530 defBounds track 240,4335,5820,4515 defbounds enterPage author leavePage reset enterPage 940919154705811756825 ASYM_TpID NUI Dialog Boarder topBorder bottomBorder bkgndSize ssm = sysSuspendMessages "0,0" bkgndSize = topBorder = bottomBorder = sysPageUnitsPerPixel,( !el), ,el,(4 * ;el), Oel, (4 * sel,( el),( el),( el),( el), (4 * = ssm 3DDialogBorder tbk_wid_name 3DDialogBorder tbk_wid_type Dialog frame CTB_WID_Info CTB_WID_Author 940817 CTB_WID_CreateDate defaultButton Button id 48 of Page id 66 defBtn needFix Button id 244 of Page id 66 refBtn Button id 49 of Page id 66 cancelBtn Button id 48 of Page id 66 refFocus author keyDown enterPage Button id 48 of Page id 66 Cover Batch Walk Scripts Walk Scripts One .&+ h , #? cancel tbkToolsDlg Property browser Edit Value FchooseFontDlg propEdit Tsetprop bold,italic propVal \updateBrowser uProp retcolor CannotEditNDArray tbk_bookRef dummy2D = retval qrgbtohls curType tb30win.dll propValue script "tbk_wid_currentTab TabFolder dlgString edit1DArray regular stbk_propTypes Edit Property boolean Ntbk_GetString colortype pageRef HLStoRGB rgbtohls upropsdlg Add system variable stbk_curOb Add UserProperty uprop setupstring window cancelled _edit1Darray sysVarValue dummy1D = _edit2Darray curOb colorPaletteDlg bookRef isSysVar custom TsetProp nextValue multiLine fstyle 1%"6h9" 1%"ViV#| 1%"js$ 1'"6l {%("< .[(">Z#m Q$Z#/ 0+y$j 2[("A 1("t 1['"B WFW17 WFW18 WFW19 WFW2 WFW20 WFW21 WFW22 WFW23 WFW24 WFW25 WFW26 WFW27 WFW28